home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / mags-docs / libguide / mycheck < prev    next >
AmigaDOS Script File  |  1999-01-01  |  1KB  |  39 lines
  1. .key file/A
  2. .BRA {
  3. .KET }
  4.  
  5. FailAt 50
  6. Echo "*NCheck:       {file}"
  7. RAM:VersionWB "{file}" text shortdate nomisc >ram:vwb_check
  8. rx RAM:MyConvert.rexx
  9. If NOT WARN
  10.     RAM:Search RAM:LibList :$filename NONUM >ENV:Check2
  11.     rx RAM:MyCheck.rexx $Checktemp1,$Check2
  12.     If NOT WARN
  13.         If "$Checkdev1" EQ "$Checkdev2"
  14.             SetEnv CheckErg=" is OK!"
  15.         else
  16.             If "$Checkdev1" GT "$Checkdev2"
  17.                 SetEnv CheckErg="NEW !!! Please contact age@thepentagon.com!"
  18.                 Echo "*N----------[[(({file}))]]---------" >>Ram:Lib-NewList
  19.                 c:List "{file}" LFormat="Name: %-40n Size: %-10l" >>Ram:Lib-NewList
  20.                 Echo "*NC:Version means:" >>Ram:Lib-NewList
  21.                 Version "{file}" FULL FILE >>Ram:Lib-NewList
  22.                 Echo "*NVWB means      :" >>Ram:Lib-NewList
  23.                 VersionWB "{file}" text shortdate full >>Ram:Lib-NewList
  24.                 Echo "*NYOUR COMMENT   :" >>Ram:Lib-NewList
  25.             else
  26.                 SetEnv CheckErg=" Newer Library is available!"
  27.               Echo "Your System: $Check1 -> LibGuide: $Check2" >>Ram:Lib-OldList
  28.                 c:List "{file}" LFormat="%n|%l" >ENV:Lister
  29.             Echo "$Lister|$Version" >>Ram:Lib-OnlineUpdate
  30.             EndIf
  31.         EndIf
  32.         Echo "LibGuide   : $Check2 *NYour System: $Check1 $CheckErg"
  33.         Echo "LibGuide   : $Check2 *NYour System: $Check1 $CheckErg*N" >>Ram:Lib-List
  34.     else
  35.         Echo "{file}"
  36.         Echo "$Check1 *N{file} ??.??" >>Ram:Lib-List
  37.     EndIf
  38. EndIf
  39.